input font1b.mf[mf,dek]
%input sunfont1base  
proofing:=1;		% this will make a "GF" output file
			% so you can get hardcopy proofs and/or run "bits"
% pausing:=1;		% So that I can see where it goes wrong
% tracingequations:=1;	% To see if everything is properly defined

vardef char.r =
	setwidth .5em;		% do this first; it sets the character width
	pos1(1.5thickwidth,45); % the pen is "thicker than thick" at the top
	pos2(1.05thickwidth,10); % and also slightly flared at the bottom
	pos3(.6thinwidth,90); 	% The starting place for the right branch
	pos4(.65[.6thinwidth,thickwidth],90); 
	pos5(thickwidth,90);	 % Joining point of two curves
	pos6(.85[thinwidth,thickwidth],45);   % at point with slope for line 5,7
	z2=(.2w+.5thickwidth,0);
	y1=xheight; x1r=x2r; % at the hheight, aligned at the right
	x3=x2+.5thickwidth; 	y3=.75xheight; dz3=(1,2);
	x4=.5[x3,x5]; y4=.83[y3,y5]; 
	z5=(.8w,xheight-.3thickwidth); dz5=(1,0);


	stroke(1,2,.1,.2,0); % taper at the left but not the right
	curve(3,4,5);
	labelpos(1,2,3,4,5);
enddef;

test.normal(char.r);	% this will display my r, with "normal" parameters
test.bold(char.r);	% and this will display it with "bold" parameters
test.boldx(char.r);	% and bold extended

test(char.r);		% this shows all three r's, but only half size

end